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LISP data are symbolic expressions that can be either atoms 
oi lists. Atoms are stiings of letters and digits and other characters 
not otherwise used in LISP. A list consists of a left parenthesis 
followed by zero or more atoms or lists separated by spaces and 
ending with a right parenthesis. Examples: A, ONION, (), (A), (A 
ONION A), (PLUS 3 (TIMES X PI) 1), (CAR (QUOTE (A B))). 

The LISP programming language is defined by rules 
whereby certain LISP expressions have other LISP expressions as 
values. The function called value that we will use in giving these 
rules is not part of the LISP language but rather part of the 
informal mathematical language u;ed to define LISP. Likewise, 
the italic letters e and a (sometimes with subscripts) denote LISP 
expressions, the letter v (usually subscripted) denotes an atom 
serving as a variable, and the letter / stands for a LISP expression 
serving as a function name. 

1. value (QUOTE e) = e. Thus the value of (QUOTE A) is A. 

2. value (CAR e), where value e is a non-empty list, is the first 
element of value e. Thus value (CAR (QUOTE (A B C))) - A. 

3. value (CDR e), where value e is a non-empty list, is the the list 
that remains when the first element of value e is deleted. Thus 
value (CDR (QUOTE (A B C))) = (B C). 

4. value (CONS el e2), is the list that results from prefixing 
value el onto the list value el. Thus 
value (CONS (QUOTE A) (QUOTE (B C))) - (A B C). 

5. value (EQUAL el e2) is T if value el - value e2. Otherwise, its 

value is NIL. Thus 

value (EQUAL (CAR (QUOTE (A B))) (QUOTE A)) - T, 

6. value (ATOM e) - T if value e is an atom; otherwise Its value is 
NIL. 

7. value (COND(/| e,) ... ( p n e„)) - value e„ where P\ is the the 
first of the p’s whose value is not NIL. Thus 

value (COND ((ATOM (QUOTE A)) (QUOTE B)) ((QUOTE T) 
(QUOTE C») - B. 

8. An atom v. regarded as a variable, may have a value. 

9. value ((LAMBDA (y, ... v n ) e) e t ... e n ) is the same as value e 
but in an environment in which the variables v, ... v„ take the 
values of the expressions e, . .. e„ in the original environment. 
Thus 

value ((LAMBDA (X Y) (CONS (CAR X) Y)) (OUOTE (A B)) 
(CDR (QUOTE (C D)))) = (A D). 


10. Here’s the hard one. value ((LABEL /(LAMBDA (u, ... v n ) 
e)) e, . . . e„) is the same as value ((LAMBDA (u, ... y„) e) e, ... 
e„) with the additional rule that whenever (f a, ... o„) must be 
evaluated, / is replaced by (LABEL j (LAMBDA (u, ... u„) «)). 
Lists beginning with LABEL define functions recursively. 

This is the core of LISP, and here are more examples: 

value (CAR X) = (A B) if value X = ((A B) C), and value 
((LABEL FF (LAMBDA (X) (COND ((ATOM X) X) ((QUOTE 

T) (FF (CAR X)))))) (QUOTE ((A B) C))) - A. Thus ((LABEL 
FF (LAMBDA (X) (COND ((ATOM X) X) ((QUOTE T) (FF 
(CAR X)))))), is the LISP name of a function ff such that ff e is 
the first atom in the written form of e. Note that the list ff is 
substituted for the atom FF twice. 

Difficult mathematical type exercise: Find a list e such that 
value e ~ e. 

Abbreviations 

The above LISP needs some abbreviations for practical use. 

1. The variables T and NIL are permanently assigned the values T 
and NIL, and NIL is the name of the null list (). 

2. So as not to describe a LISP function each time it is used, we 
define it permanently by typing (DEFUN / (y, ... y n ) e). 
Thereafter If e | ... e„) is evaluated by evaluating e with the 
variables y,, ... , y n taking the values value e u ... .value e„ 
respectively. Thus, after we define (DEFUN FF (X) (COND 
((ATOM X) X) (T (FF (CAR X))))), typing (FF (QUOTE ((A B) 
C))), gets A from LISP. 

3. We have the permanent function definitions 
(DEFUN NULL (X) (EQUAL X NIL)) and 
(DEFUN CADR (X) (CAR (CDR X))), 

and similarly for arbitrary combinations of A and D. 

4. (LIST «| ... e n ) is defined for each n to be (CONS <| (CONS ... 
(CONS e„ NIL))). 

5. (AND p q) abbreviates (COND (p q) (T NIL)). ANDs with 
more terms are defined similarly, and the propositional connectives 
OR and NOT are used in abbreviating corresponding conditional 

expressions. 

Here are more examples of LISP function definitions: 
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Here is EVAL. 


(DEFUN ALT (X) (COND ((OR (NULL X) (NULL (CDR X))) 
X) (T (CONS (CAR X) (ALT (CDDR X)))))) 

defines a function that gives alternate elements of a list starting 
with the first element. Thus (ALT (QUOTE (A B C D E))) «* (A 
C E), 

(DEFUN SUBST (X Y Z) (COND ((ATOM Z) (COND ((EQUAL 
Z Y) X) (T Z))) (T (CONS (SUBST X Y (CAR Z)) (SUBST X Y 
(CDR Z)))))), 


where Y is an atom, gives the result of substituting X for Y in Z. 
Thus 

(SUBST (QUOTE (PLUS X Y)) (QUOTE V) (QUOTE (TIMES 
X V))) = (TIMES X (PLUS X Y)). 


You may now program in LISP. Call LISP on a time- 
sharing computer, define some functions, type in a LISP 
expression, and LISP will output its value on your terminal. 


THE LISP INTERPRETER WRITTEN IN LISP 

The rules we have given for evaluating LISP expressions 
can themselves be expressed as a LISP function (EVAL e a), 
where e is an expression to be evaluated, and a is a list of 
variable-value pairs, a is used in the recursion and is often 
initially NIL. The long LISP expression that follows is just such 
an evaluator. It is presented as a single LABEL expressions with 
all auxiliary functions also defined by LABEL expressions 
internally, so that it references only the basic function of LISP and 
some of abbreviations like CADR and friends. It knows about all 
the functions that are used in its own definition so that it can 
evaluate itself evaluating some other expression. It does not know 
about DEFUNs or any features of LISP not explained in this 
micro-manual such as functional arguments, property list functions, 
input-output, or sequential programs. 

The function EVAL can serve as an interpreter for LISP, 
and LISP interpreters are actually made by hand-compiling EVAL 
into machine language or by cross-compiling it on a machine for 
which a LISP system already exists. 

The definition would have been easier to follow had we 
defined auxiliary functions separately rather than include them 
using LABEL. However, we would then have needed property list 
functions in order to make the EVAL self-applicable. These 
auxiliary functions are EVLIS which evaluates lists of expressions, 
EVCOND which evaluates conditional expressions, ASSOC which 
finds the value associated with a variable in the environment, and 
PAIR UP which pairs up the corresponding elements of two lists. 


(LABEL EVAL (LAMBDA <E A) 

(COND ((ATOM E) 

(COND ((EQ E NIL) NIL) 

((EQ E T) T) 

(T (CDR ((LABEL 

ASSOC 

(LAMBDA (E A) 

(COND ((NULL A) NIL) 

((EQ E (CAAR A)) (CAR A)) 
(T (ASSOC E (COR A)))))) 

E 

A))))) 

((ATOn (CAR E)) 

(COND ((EQ (CAR E) (QUOTE QUOTE)) (CADR E)) 

((EQ (CAR E) (QUOTE CAR)) 

(CAR (EVAL (CADR E) A))) 

((EQ (CAR E) (QUOTE COR)) 

(CDR (EVAL (CADR E) A))) 

((EQ (CAR E) (QUOTE CADR)) 

(CADR (EVAL (CADR E> A))) 

((EQ (CAR E) (QUOTE CAODR) ) 

(CADDR (EVAL (CADR E) A))) 

((EQ (CAR E) (QUOTE CAAR)) 

(CAAR (EVAL (CADR E) A))) 

((EQ (CAR E) (QUOTE CADAR)) 

(CADAR (EVRL (CADR E) A))) 

((EQ (CAR E) (QUOTE CADOAR)) 

(CADDAR (EVAL (CAOR E) A))) 

((EQ (CAR E) (QUOTE ATOM)) 

(AT0H (EVAL (CADR E) A))) 

((EQ (CAR E) (QUOTE NULL)) 

(NULL (EVAL (CADR E) A))> 

((EQ (CAR E) (QUOTE CONS)) 

(CONS (EVAL (CRDR E) A) (EVAL (CADDR E) A))) 

((EQ (CAR E) (QUOTE EQ)) 

(EQ (EVAL (CAOR E) A) (EVAL (CADDR E) A))) 

((EQ (CAR E) (QUOTE CONO)) 

((LABEL EVCOND 

(LAMBDA (U A) (COND ((EVAL (CAAR U) A) 
(EVAL (CADAR U) 

A) ) 

(T (EVCOND (COR U) 


A))))) 


(CDR E) 

A)) 

(T (EVAL (CONS (CDR ((LABEL 
RSSOC 

(LAMBDA (E A) 

(COND 

((NULL A) NIL) 

((EQ E (CAAR A)) 

(CAR A)) 

(T (ASSOC E 

(CDR A)))))) 


(CAR E) 

A)) 

(CDR E)> 

A)))) 

((EQ (CAAR E) (QUOTE LAMBDA) 

(EVAL (CADOAR E) 

((LABEL FFAPPENO 

(LAMBDA (U V) 

(COND ((NULL U) V) 

(T (CONS (CAR U) 

(FFAPPEND (CDR U) 
V)))))) 


((LABEL 

PAIRUP 

(LAMBDA (U V) 

(CONO ((NULL U) NIL) 

(T (CONS (CONS (CAR U) (CAR V)) 
' (PAIRUP (CDR U) 

(CDR V))>)))> 

(CADAR E) 

((LABEL 

EVLIS 

(LAMBDA (U A) 

(COND ((NULL U> NIL) 

(T (CONS (EVAL (CAR U) A) 
(EVLIS (CDR U) 

A)))))) 

(CDR E) 

A)) 

A))) 

((EQ (CAAR E) (QUOTE LABEL)) 

(EVAL (CONS (CADOAR E) (CDR E)) 

(CONS (CONS (CADAR E) (CAR E)) A))))) 
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